InfoMagic Internet Tools 1993 July/Internet Tools.iso/RockRidge/info-service/www/src/WWW/Library/Implementation/HTFWriter.c

C/C++ Source or Header | 1993-06-21 | 4.6 KB | 227 lines

/*        FILE WRITER                HTFWrite.h
**        ===========
**
**    This version of the stream object just writes to a C file.
**    The file is assumed open and left open.
**
**    Bugs:
**        strings written must be less than buffer size.
*/

#include "HTFWriter.h"

#include "HTFormat.h"
#include "HTAlert.h"
#include "HTFile.h"

/*        Stream Object
**        ------------
*/

struct _HTStream {
    CONST HTStreamClass *    isa;

    FILE *            fp;
    char *             end_command;
    char *             remove_command;
};


/*_________________________________________________________________________
**
**            A C T I O N     R O U T I N E S
**  Bug:
**    All errors are ignored.
*/

/*    Character handling
**    ------------------
*/

PRIVATE void HTFWriter_put_character ARGS2(HTStream *, me, char, c)
{
    putc(c, me->fp);
}



/*    String handling
**    ---------------
**
**    Strings must be smaller than this buffer size.
*/
PRIVATE void HTFWriter_put_string ARGS2(HTStream *, me, CONST char*, s)
{
    fputs(s, me->fp);
}


/*    Buffer write.  Buffers can (and should!) be big.
**    ------------
*/
PRIVATE void HTFWriter_write ARGS3(HTStream *, me, CONST char*, s, int, l)
{
    fwrite(s, 1, l, me->fp);
}




/*    Free an HTML object
**    -------------------
**
**    Note that the SGML parsing context is freed, but the created
**    object is not,
**    as it takes on an existence of its own unless explicitly freed.
*/
PRIVATE void HTFWriter_free ARGS1(HTStream *, me)
{
    fflush(me->fp);
    if (me->end_command) {        /* Temp file */
        fclose(me->fp);
        HTProgress(me->end_command);    /* Tell user what's happening */
    system(me->end_command);
    free (me->end_command);
    if (me->remove_command) {
        system(me->remove_command);
        free(me->remove_command);
    }
    }

    free(me);
}

/*    End writing
*/

PRIVATE void HTFWriter_end_document ARGS1(HTStream *, me)
{
    fflush(me->fp);
}



/*    Structured Object Class
**    -----------------------
*/
PRIVATE CONST HTStreamClass HTFWriter = /* As opposed to print etc */
{
    "FileWriter",
    HTFWriter_free,
    HTFWriter_end_document,
    HTFWriter_put_character,     HTFWriter_put_string,
    HTFWriter_write
};


/*    Subclass-specific Methods
**    -------------------------
*/

PUBLIC HTStream* HTFWriter_new ARGS1(FILE *, fp)
{
    HTStream* me;

    if (!fp) return NULL;

    me = (HTStream*)malloc(sizeof(*me));
    if (me == NULL) outofmem(__FILE__, "HTML_new");
    me->isa = &HTFWriter;

    me->fp = fp;
    me->end_command = NULL;
    me->remove_command = NULL;

    return me;
}

/*    Make system command from template
**    ---------------------------------
**
**    See mailcap spec for description of template.
*/
/* @@ to be written.  sprintfs will do for now.  */


/*    Take action using a system command
**    ----------------------------------
**
**    originally from Ghostview handling by Marc Andreseen.
**    Creates temporary file, writes to it, executes system command
**    on end-document.  The suffix of the temp file can be given
**    in case the application is fussy, or so that a generic opener can
**    be used.
*/
PUBLIC HTStream* HTSaveAndExecute ARGS3(
    HTPresentation *,    pres,
    HTParentAnchor *,    anchor,    /* Not used */
    HTStream *,        sink)    /* Not used */

#ifdef unix
#define REMOVE_COMMAND "/bin/rm -f %s\n"
#endif
#ifdef VMS
#define REMOVE_COMMAND "delete/noconfirm/nolog %s.."
#endif

#ifdef REMOVE_COMMAND
{
    char *fnam;
    CONST char * suffix;

    HTStream* me;

    me = (HTStream*)malloc(sizeof(*me));
    if (me == NULL) outofmem(__FILE__, "Save and execute");
    me->isa = &HTFWriter;

    /* Save the file under a suitably suffixed name */

    suffix = HTFileSuffix(pres->rep);

    fnam = (char *)malloc (L_tmpnam + 16 + strlen(suffix));
    tmpnam (fnam);
    if (suffix) strcat(fnam, suffix);

    me->fp = fopen (fnam, "w");
    if (!me->fp) {
    HTAlert("Can't open temporary file!");
        free(fnam);
    free(me);
    return NULL;
    }

/*    Make command to process file
*/
    me->end_command = (char *)malloc (
                (strlen (pres->command) + 10+ 3*strlen(fnam))
                 * sizeof (char));
    if (me == NULL) outofmem(__FILE__, "SaveAndExecute");

    sprintf (me->end_command, pres->command, fnam, fnam, fnam);

    me->remove_command = NULL;    /* If needed, put into end_command */
#ifdef NOPE
/*    Make command to delete file
*/
    me->remove_command = (char *)malloc (
                (strlen (REMOVE_COMMAND) + 10+ strlen(fnam))
                 * sizeof (char));
    if (me == NULL) outofmem(__FILE__, "SaveAndExecute");

    sprintf (me->remove_command, REMOVE_COMMAND, fnam);
#endif

    free (fnam);
    return me;
}

#else    /* can do remove */
{ return NULL; }
#endif


/*    Format Converter using system command
**    -------------------------------------
*/